home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / RNEWSPOS.ELC < prev    next >
Text File  |  1993-03-28  |  9KB  |  91 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jan 14 00:58:33 1993
  2. ;;; from file /u/jwz/emacs19/lisp/packages/rnewspost.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.09; 29-dec-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê└┬!ç" [require sendmail rnews] 2)
  14. (defvar news-reply-mode-map nil "\
  15. Mode map used by news-reply.")
  16. (byte-code "¼╤┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┬╔╩#ê┬╦╠#ê┬═╬#ê┬╧╨#ê┬╤╥#ê┬╙╘#ê┬╒╓#ê┬╫╪#ê┬┘┌#ê┬█┌#ê┴ç" [news-reply-mode-map make-keymap define-key "?" describe-mode "" news-reply-distribution " " news-reply-keywords "" news-reply-newsgroups "" news-reply-followup-to "" mail-subject "" news-reply-summary "" news-caesar-buffer-body "" news-reply-signature "" news-reply-yank-original "" mail-fill-yanked-message "" news-inews ""] 4)
  17. (fset 'news-reply-mode #[nil "└┴!¼ä┬├!ê─ ê┼╞!ê╟╚    !ê╩ !ê ╬╨┼╥!ê┼╙!ê╘╓R╘╓R╫╪┘\"ç" [fboundp mail-setup load "sendmail" kill-all-local-variables make-local-variable mail-reply-buffer nil set-syntax-table text-mode-syntax-table use-local-map news-reply-mode-map text-mode-abbrev-table local-abbrev-table news-reply-mode major-mode "News" mode-name paragraph-separate paragraph-start "^" mail-header-separator "$\\|" run-hooks text-mode-hook news-reply-mode-hook] 4 "\
  18. Major mode for editing news to be posted on USENET.
  19. First-time posters are asked to please read the articles in newsgroup:
  20.                                                      news.announce.newusers .
  21. Like Text Mode but with these additional commands:
  22.  
  23. C-c C-s  news-inews (post the message)    C-c C-c  news-inews
  24. C-c C-f     move to a header field (and create it if there isn't):
  25.      C-c C-f C-n  move to Newsgroups:    C-c C-f C-s  move to Subj:
  26.      C-c C-f C-f  move to Followup-To:      C-c C-f C-k  move to Keywords:
  27.      C-c C-f C-d  move to Distribution:    C-c C-f C-a  move to Summary:
  28. C-c C-y  news-reply-yank-original (insert current message, in NEWS).
  29. C-c C-q  mail-fill-yanked-message (fill what was yanked).
  30. C-c C-r  caesar rotate all letters by 13 places in the article's body (rot13)." nil])
  31. (defvar news-reply-yank-from "Save From: field for news-reply-yank-original." "\
  32. ")
  33. (defvar news-reply-yank-message-id "Save Message-Id: field for news-reply-yank-original." "\
  34. ")
  35. (fset 'news-reply-yank-original #[(arg) "└┬ !ê─ ê┼╞!)ç" [nil zmacs-regions mail-yank-original arg exchange-point-and-mark run-hooks news-reply-header-hook] 2 "\
  36. Insert the message being replied to, if any (in postnews).
  37. Puts point before the text and mark after.
  38. Indents each nonblank line ARG spaces (default 3).
  39. Just \\[universal-argument] as argument means don't indent
  40. and don't delete any header fields." "P"])
  41. (defvar news-reply-header-hook '(lambda nil (insert "In article " news-reply-yank-message-id " " news-reply-yank-from " writes:\n\n")) "\
  42. Hook for inserting a header at the top of a yanked message.")
  43. (fset 'news-reply-newsgroups #[nil "└ êebê┴┬!ç" [expand-abbrev mail-position-on-field "Newsgroups"] 2 "\
  44. Move point to end of Newsgroups: field.
  45. RFC 850 constrains the Newsgroups: field to be a comma separated list of valid
  46. newsgroups names at your site:
  47. Newsgroups: news.misc,comp.misc,rec.misc" nil])
  48. (fset 'news-reply-followup-to #[nil "└ ê┴┬├\"«å┴─!ê┼cç" [expand-abbrev mail-position-on-field "Followup-To" t "newsgroups" "\nFollowup-To: "] 3 "\
  49. Move point to end of Followup-To: field.  Create the field if none.
  50. One usually requests followups to only one newsgroup.
  51. RFC 850 constrains the Followup-To: field to be a comma separated list of valid
  52. newsgroups names at your site, that are also in the Newsgroups: field:
  53. Newsgroups: news.misc,comp.misc,rec.misc,misc.misc,soc.misc
  54. Followup-To: news.misc,comp.misc,rec.misc" nil])
  55. (fset 'news-reply-distribution #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Distribution"] 2 "\
  56. Move point to end of Distribution: optional field.
  57. Create the field if none.  Without this field the posting goes to all of
  58. USENET.  The field is used to restrict the posting to parts of USENET." nil])
  59. (fset 'news-reply-keywords #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Keywords"] 2 "\
  60. Move point to end of Keywords: optional field.  Create the field if none.
  61. Used as an aid to the news reader, it can contain a few, well selected keywords
  62. identifying the message." nil])
  63. (fset 'news-reply-summary #[nil "└ ê┴┬!ç" [expand-abbrev mail-position-on-field "Summary"] 2 "\
  64. Move point to end of Summary: optional field.  Create the field if none.
  65. Used as an aid to the news reader, it can contain a succinct
  66. summary (abstract) of the message." nil])
  67. (fset 'news-reply-signature #[nil "└┴!ç" [message "~/.signature will be appended automatically."] 2 "\
  68. The inews program appends ~/.signature automatically." nil])
  69. (fset 'news-setup #[(to subject in-reply-to newsgroups replybuffer) "┬ ¼₧┬ë╟     ┬┬&ê╩yê╦╠!êdbê*¬î╟     ┬┬&êdbê═╧╨e═#)½Ü╩yê╤«ü╙╘▒ê¼å╒╠!ê¬âdbê╓╫!)ç" [replybuffer mail-reply-buffer nil mail-setup-hook to mail-archive-file-name mail-self-blind mail-setup subject in-reply-to 0 kill-line 1 t case-fold-search re-search-backward "^Subject:" "Newsgroups: " newsgroups "" "\n" backward-char run-hooks news-setup-hook] 7 "\
  70. Setup the news reply or posting buffer with the proper headers and in
  71. news-reply-mode."])
  72. (fset 'news-inews #[nil "└└└èîebê─┼┼Q!êe`}ê╟╚!╟╔!)~êebê╩╦!êebê─┼┼Q!ê╠═!êdbêh╬U¼â╬cê╧╨!ê╤ed└╙└╘&ê╧╒!êebê─═!ê╠┼┼Q!ê╓└!ê)╫╪!¡é╪ +ç" [nil newsgroups subject case-fold-search search-forward "\n" mail-header-separator mail-fetch-field "newsgroups" "subject" run-hooks news-inews-hook replace-match "\n\n" 10 message "Posting to USENET..." call-process-region news-inews-program 0 "-h" "Posting to USENET... done" set-buffer-modified-p fboundp bury-buffer] 8 "\
  73. Send a news message using inews." nil])
  74. (defvar news-reply-subject-prefix nil "\
  75. *The prefix to use when replying to a news message (such as \"Re:\").")
  76. (fset 'news-mail-reply #[nil "└ëëëëëëëëp    \nî~êeebê╦╠!ê`═Z}ê╬╧!\n╬╨!╬╤!╬╥!╬╙!╬╘!½Ö½ò╓╫╪!┘Q\"¼ê┌Q\n█▄!êp▌└½â¬é╓▐\n\"ë½ê\nαO¬é\nßQ)└    &¡¥è\nqêΓπ!ê ½â cê ½å ½â┌cê ¡é c). ç" [nil buffer b message-id references reply-to to date subject cc from search-forward "\n\n" 1 mail-fetch-field "from" "subject" "reply-to" "date" "references" "message-id" news-reply-subject-prefix string-match "^[     ]*" regexp-quote "[ )t]*" " " pop-to-buffer "*mail*" mail "  *at \\|  *@ \\| *(\\| *<" stop-pos 0 "'s message of " mail-position-on-field "References"] 11 "\
  77. Mail a reply to the author of the current article.
  78. While composing the reply, use \\[news-reply-yank-original] to yank the
  79. original message into it." nil])
  80. (fset 'news-reply #[nil "└┴!â\n┬ëëëëëëëëëëp    \n  î╧╨ U¼û╥ܽÉ╙ êeebê╘╒!ê`╓Z}ê╫╪!ë╫┌! ╫█! ╫▄!ë    «â╫▌!╫▐!╫▀!╫α!ë!Γπ!êΣ êσ ¡ä└µ!??àτ ê ½¥ΦΘ \"½ÉΦΘ \"½ë Ω┬O ¬pδ P ½¢Φ∞\"ë-½ê╧-O¬éε Q)∩┬  %ê    ½ç≡ ê    cê½ç±≥!êcê±≤!ê½äcê½å ½â⌠cê ½â cêdb.ç⌡÷!ç" [y-or-n-p "Are you sure you want to followup to all of USENET? " nil buffer message-id distribution references message-of newsgroups followup-to to date subject cc from 0 buffer-size major-mode news-mode news-show-all-headers search-forward "\n\n" 1 mail-fetch-field "from" news-reply-yank-from "subject" "date" "followup-to" "newsgroups" "references" "distribution" "message-id" news-reply-yank-message-id pop-to-buffer "*post-news*" news-reply-mode buffer-modified-p "Unsent article being composed; erase it? " erase-buffer string-match "\\`Re: " 4 "Re: " "  *at \\|  *@ \\| *(\\| *<" stop-pos "'s message of " news-setup news-reply-followup-to mail-position-on-field "Distribution" "References" " " message ""] 13 "\
  81. Compose and post a reply (aka a followup) to the current article on USENET.
  82. While composing the followup, use \\[news-reply-yank-original] to yank the
  83. original message into it." nil])
  84. (fset 'news-post-news #[nil "└┴!½╟pî├─ U¼ò╞ܽÉ╟ êeebê╚╔!ê`╩Z}ê╦╠!╦╬!)╨╤!ê╥ ê╙ ¡ä└╘!??¡è╒ ê╓╫ëëë\n%)ç╪┘!ç" [y-or-n-p "Are you sure you want to post to all of USENET? " buffer 0 buffer-size major-mode news-mode news-show-all-headers search-forward "\n\n" 1 mail-fetch-field "from" news-reply-yank-from "message-id" news-reply-yank-message-id pop-to-buffer "*post-news*" news-reply-mode buffer-modified-p "Unsent article being composed; erase it? " erase-buffer news-setup nil message ""] 6 "\
  85. Begin editing a new USENET news article to be posted.
  86. Type \\[describe-mode] once editing the article to get a list of commands." nil])
  87. (fset 'news-mail-other-window #[nil "└┴ëëëëp&ç" [mail-other-window nil] 7 "\
  88. Send mail in another window.
  89. While composing the message, use \\[news-reply-yank-original] to yank the
  90. original message into it." nil])
  91.